#!/usr/bin/env perl
use 5.10.0;
use strict;

#编写输出%ENV哈希中的所有的键值对。按照ASCII编码排序。
while (my ($key,$val) = each %ENV) {
    printf "%20s\t%20s\n", $key, $val;
}
